home *** CD-ROM | disk | FTP | other *** search
- /*
- Final-Copy: Objekt -> Grafik - 13.4.94 - von Gunther Lemm
- */
-
-
- ask=1 /* ask=0 -> Sicherheitsabfrage abgeschaltet */
- defdir=":" /* statt *: kann hier der Name Ihres Grafik-Ordners angegeben werden */
-
-
- if ~show('L',"rexxreqtools.library") then addlib('rexxreqtools.library',0,-30,0)
-
- tags="rt_screentofront=true"
- titel="ARexx-Macro-Info: Objekt -> Grafik"
-
- Address='FinalC'
- Options results
-
- STATUS PORTNAME
- address = result
-
- CURRENTOBJECT
- if result=0 then
- do ; back=rtezrequest(" Kein Objekt ausgewählt! ","OK",titel) ; Exit ; End
- id = result
-
-
- GETOBJECTTYPE id
- if (result=2 | result=3) then
- do ; void=rtezrequest("Falscher Objekttyp für eine Grafikumwandlung!",,titel,tags) ; exit ; end
-
- if ask=1 then
- do
- ok=rtezrequest("Soll das aktive Objekt in eine Grafik umgewandelt werden?","Ja|Nein",titel)
- if ok=0 then exit
- end
-
- GETOBJECTCOORDS id
- coords = result
-
- If GetClip("GFX-DIR")="" Then dir=defdir
- Else dir=GetClip("GFX-DIR")
-
- p = max(index(dir,':'),lastpos('/',dir))
- file=delstr(dir,1,p)
- dir=substr(dir,1,p)
-
- SCRTOBACK
-
- filename = rtfilerequest(dir,file,"FinalCopy: Grafik importieren...","Laden!")
-
- SCRTOFRONT
-
- If filename='' Then Exit
- if (index(filename,'"')=0 & index(filename," ")>0) then filename='"'||filename||'"'
- void=SetClip("GFX-DIR",strip(filename,B,'"'))
-
- 'INSERTILBM '||filename||' POSITION '||coords
- if rc>0 then do ; void=rtezrequest("Fehler beim Einfügen der Grafik / beim Öffnen der Grafikdatei!","Sorry",titel,tags) ; exit ; end
-
- DELETEOBJECT id
-
- REDRAW
-
- Exit
-
-